home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / WPCONV.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  1.5 KB  |  40 lines
  1. MODULE WPConv;
  2.  
  3. FROM Files IMPORT File, Access, ReplaceMode, Open, Create, State, Close, EOF;
  4. FROM Text IMPORT ReadString, WriteString, WriteLn, ReadLn, Write, EOL;
  5. FROM Strings IMPORT Empty;
  6. IMPORT InOut;
  7.  
  8. VAR in, out: File;
  9.     n1, n2: ARRAY [0..64] OF CHAR;
  10.     line: ARRAY [0..255] OF CHAR;
  11.     paragraph: BOOLEAN;
  12.  
  13. BEGIN
  14.   InOut.WriteString ('Input file: ');
  15.   InOut.ReadString (n1);
  16.   IF NOT InOut.Done THEN RETURN END;
  17.   InOut.WriteString ('Output file: ');
  18.   InOut.ReadString (n2);
  19.   IF NOT InOut.Done THEN RETURN END;
  20.   Open (in, n1, readSeqTxt);
  21.   Create (out, n2, writeSeqTxt, replaceOld);
  22.   paragraph:= FALSE;
  23.   REPEAT
  24.     ReadString (in, line);
  25.     IF EOL (in) THEN
  26.       ReadLn (in);
  27.       IF Empty (line) THEN
  28.         WriteLn (out)
  29.       ELSE
  30.         Write (out, ' ');
  31.         WriteString (out, line);
  32.       END;
  33.     END
  34.   UNTIL EOF (in);
  35.   Close (out);
  36.   Close (in);
  37. END WPConv.
  38.  
  39. (* $FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12C$FFF2F12CÇ$00000360........T.......T.......T.......T.......T.......T.......T.......T.......T.......$FFF2F12C$000002E9$00000360$FFF2F12C$000002E9$000002DA$00000395$FFF2F12C$0000037F$0000038F$0000037A$0000038A$000002AE$00000356$0000032C$FFF2F12CîÇÇ*)
  40.